home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Amos / rjkpro_1 / circleflash.amos / circleflash.amosSourceCode
Encoding:
AMOS Source Code  |  1997-04-02  |  1.3 KB  |  61 lines
  1. '----------------------------------------------------
  2. '                 circle flash v2.1
  3. '----------------------------------------------------
  4. '               keller@vip.cybercity.dk
  5. '                     rune keller  
  6. '                 sporuplundsvej 105 
  7. '                   dk-8472 sporup 
  8. '----------------------------------------------------
  9. '            finished o2/o4/1997 13:27:28
  10. '----------------------------------------------------  
  11.  
  12. _CIRCLEFLASH
  13.  
  14. Procedure _CIRCLEFLASH
  15.    
  16.    Screen Open 0,320,256,32,Lowres
  17.    Flash Off 
  18.    Curs Off 
  19.    Hide 
  20.    Cls 0
  21.    
  22.    Palette $0,$303,$505,$707,$909,$B0B,$D0D,$E0E,$F0F,$F3F,$F5F,$F7F,$F9F,$FBF,$FDF,$FEF,$FFF,$EFF,$DFF,$BFF,$9FF,$7FF,$5FF,$3FF,$FF,$EE,$DD,$BB,$99,$77,$55,$33
  23.    
  24.    Screen Hide 
  25.    
  26.    For _COLOR=1 To 31
  27.       Ink _COLOR
  28.       Circle 16,16,15
  29.       Paint 16,16
  30.       Get Bob _COLOR,0,0 To 32,32
  31.       Cls 0
  32.    Next 
  33.    
  34.    Screen Show 
  35.    
  36.    Shift Up 1,1,31,1
  37.    
  38.    Degree 
  39.    
  40.    _DEG=0
  41.    _COLOR=-1
  42.    _VAR1#=8
  43.    _VAR2#=8
  44.    
  45.    Repeat 
  46.       
  47.       Add _DEG,6
  48.       Add _COLOR,1,1 To 31
  49.       _VAR1#=_VAR1#+0.25
  50.       _VAR2#=_VAR2#+0.25
  51.       
  52.       Paste Bob 160+Cos(_DEG)*_VAR1#-16,128+Sin(_DEG)*_VAR2#-16,_COLOR
  53.       
  54.       Wait Vbl 
  55.       
  56.    Until Mouse Key<>0
  57.    
  58.    Cls 0
  59.    Erase 1
  60.    
  61. End Proc